LS - Opening app on other server SOMETIME gives 4060...

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: LS - Opening app on other server SOMETIME gives 4060...

Feedback Type: Problem

Product Area: Administration

Technical Area: Security

Platform: Windows

Release: 8.5.3

Reproducible: Intermittent

Good day all !

I'm trying to build a little agent that will scan databases on 3 different servers and fetch the number of documents per database + size of database. (and then report which ones are dangerously high and should be monitored...)

I get errors 4060 on some database, but not all. I know it's somewhat related to "scheduled agent trying to open apps on a different server".

The signer user and the agent-hosting-server are Manager on the aimed databases, but through a groups . (adminusers group for the user, localdomainserver groupe for the server).

I'Ve seen no significant differences in the ACL of a working(I get my stats) and a non-working database(error 4060). (I have a "on error 4060..." statement allowing me to repport the db with the issue and still continue the script...

I've also managed to work around by explicitly include the agent-hosting-server's FQDN in the problematic dbs with Manager access.

Of course, I could justcopy/paste and run the script on each server and produce 1 report PER server instead of 1 report that include all the info... but yeah... wouldn't be as satisfying ! :-P

I couldd also juste add the "Agent-hosting-server's" FQDN explicitly in every dbs on every servers..... but it's not much better.

So... anyone got a better idea ?!

Here's what I do :

For Srv_nmbr = 0 To 2

Set dbdir = New NotesDbDirectory(Srv_name_array(Srv_nmbr))

Set db = dbdir.GetFirstDatabase(DATABASE)
While Not db Is Nothing
On Error 4060 Goto Error4060
If InStr(db.FilePath, path1)=1 Or InStr(db.FilePath, path2)=1 Then
Call db.Open(Srv_name_array(Srv_nmbr), db.FilePath)
Actual_Size = db.size / 1024 / 1024
Actual_Size = Round(Actual_Size,0)
If db.AllDocuments.Count > DocMax(Srv_nmbr) Or Actual_Size > SizeMax(Srv_nmbr) then
Print #filecsv%, db.FilePath + " " + Cstr(db.Title) + " " + Cstr(db.AllDocuments.Count) + " " + CStr(Actual_Size)
End If
End If
GetNextDb:
Set db = dbdir.GetNextDatabase()
Wend

Next Srv_nmbr

Error4060:
Print #filecsv%, db.FilePath + " " + CStr(db.Title) + " Access issues ! Please review ACL or something !"
Resume GetNextDb

Fin:

Feedback number WEBB9AZNYW created by ~Joan Relutexetsi on 08/28/2013

Status: Open
Comments: